home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / aiexp / feb95 / cona14.gif < prev    next >
Graphics Interchange Format  |  1997-01-12  |  45.7 KB  |  652x327  |  4-bit (16 colors)
   ocr: FIGURE 4. Expanding on the object- oriented cosign. NODE GETVALUEO 0; (JOB 1) GETSUBNODESO = 0; (JOB: 2) FUNCTION : NODE VALUE NODE INTM_NUMBEROFPARAMETERS; FUNCTION-MIFUNCTION RETURNED VALUE GETVALUEO POINTED TO; GETVALUE GETVALUEO ON CHILD NODES: GETVALUEO PASS (CALL RESULTS IN CALL TOM_FUNCTION; RETURN SELF;) RETURN RESULTS; GETSUBTREEO (CALL GETSUBTREE ON CHILD NODES;) VARIABLE: : VALUE CONSTANT: :VALUE,